home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Password Hints.xpl < prev    next >
Text File  |  2004-02-14  |  3KB  |  105 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="3"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  5. "UIPATH 2"="Network\Security\Passwords"
  6. "NAME"="Welcome Window Password Hints"
  7. "VERSION"="1.00"
  8. "OSVERSION"="0000011"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Show"
  11. "TEXT 2"="Edit..."
  12. "TEXT 3"="Delete Hint"
  13. "DESCRIPTION 1"="When a user tries to log into the computer and enters an incorrect password, Windows will display a password hint that helps the user to remember the correct password."
  14. "DESCRIPTION 2"="With these settings you can view or edit all hints on this computer. You may also clear a password hint if, for example, has set its password hint to the password itself."
  15. "DESCRIPTION 3"="Please note that these hints will only be visible if the following conditions are met:"
  16. "DESCRIPTION 4"="a)  The computer is not connected to a Domain"
  17. "DESCRIPTION 5"="b)  The computer uses the new "Welcome window" login screen"
  18. "DESCRIPTION 6"="In any other case, the password hints will not be displayed."
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=" "
  21. "AUTHOR"="Xteq Systems"
  22. "CONTACTURL"="http://www.xteq.com"
  23.  
  24.  
  25. 'Declaration of some constants
  26. sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Hints\"
  27. sV1="\@"
  28.  
  29. Dim iCount
  30. Dim aryLoc()
  31.  
  32. iCount=0
  33.  
  34. 'Called when the Plugin is started
  35. SUB Plugin_Initialize
  36.  'empty list
  37.  For l=1 to iCount
  38.      Call SetUIElement(l,"")
  39.  next
  40.  
  41.  'read again
  42.  iCount=RegEnumPaths(sP)
  43.  
  44.  if iCount>0 then
  45.     'redim array
  46.     ReDim aryLoc(iCount)
  47.  
  48.     for l=1 to iCount
  49.         s=RegEnumElement(l)
  50.         aryLoc(l)=s
  51.  
  52.         Call SetUIElement(l,s)
  53.     next
  54.  else
  55.     Disable
  56.  end if
  57. END SUB
  58.  
  59. 'Called when the Plugin should validate the Data the user has entered
  60. SUB Plugin_CheckData(ElementIndex)
  61. END SUB
  62.  
  63. 'Called when the Plugin should apply the changes
  64. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  65.  
  66.  if ElementSubIndex>0 then 'OK, user has selected an item 
  67.  
  68.     sName=aryLoc(ElementSubIndex)
  69.     sPath=RegReadValue(sP & sName & sV1)
  70.  
  71.  
  72.     Select Case ElementIndex
  73.     Case 1 'Show
  74.          if len(sPath)>0 then
  75.             Call MsgInformation("Current password hint: " & chr(13) & chr(10) & sPath)
  76.          else
  77.             Call MsgInformation("The selected user has no password hint set")
  78.          end if
  79.  
  80.     Case 2 'Edit
  81.          sNew=InputWindow("Password hint",sPath,1) 
  82.          if IsEmpty(sNew)=false then
  83.             Call RegWriteValue(sP & sName & sV1,sNew,1)
  84.             Call MsgInformation("Password hint changed to: " & sNew)
  85.          end if
  86.  
  87.  
  88.     Case 3 'DELETE
  89.  
  90.          Call RegWriteValue(sP & sName & sV1,"",1)
  91.          Call MsgInformation("Password hint deleted")        
  92.     End Select
  93.  
  94.  else
  95.     Call MsgWarning("No item selected - please select an item first.")
  96.  end if
  97.  
  98.  
  99. ' end if
  100. END SUB
  101.  
  102. 'Called when the Plugin is about to be removed from memory
  103. SUB Plugin_Terminate
  104. END SUB
  105.